﻿Public Class Dado
    Dim rnd As New Random

    Public Function lanzar() As Integer
        Return rnd.Next(1, 6)
    End Function

    Public Function tirada(ByVal cantidad As Integer) As List(Of Integer)
        Dim undado As Integer
        Dim resultados As List(Of Integer)
        For i As Integer = 0 To cantidad - 1
            undado = rnd.Next(1, 6)
            resultados.Add(undado)
        Next
        Return resultados
    End Function
End Class
